home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Keyboard Lingo.dir / Scripts_12_Key Down Script for Scene 2.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  387 b   |  17 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on keyDown
  6.   put the key into field "The Key" of castLib "Text"
  7.   puppetSprite(8, 1)
  8.   set the member of sprite 8 to member "downstate" of castLib "internal"
  9.   put " " into field "Key Data" of castLib "Text"
  10.   put " " into field "keyCode Data" of castLib "Text"
  11.   put " " into field "ASCII Data" of castLib "Text"
  12. end
  13.  
  14. on keyUp
  15.   puppetSprite(8, 0)
  16. end
  17.